F(X) Software Presents ... 


***** The F(x) Journal - For Imagination Machine Users October 1982 ***** 
band The first issue is finally here ! We wish to apolo- 
gize for the lengthy delay; however, the delay could not 
be avoided because we had to wait to insure that we would 
have enough avewerinene, 

First, let me tell you who we are. The chief writer 
is yours truly, Roland De Graaf. The \supporting writers 
are Todd Van Klavern and,;Jay Zuverink. 

a In case you haven't noticed, this newsletter is in- 
tended to be somewhat informal and easy to understand. 

In general, this newsletter will ‘four sections. 

The first section will be.a question and answer section. 
If you include a self-addressed stamped envelope with 
your questions, you will receive a personal reply, as 


well as having the question and answer appear in the news- 


letter. The second section will contain BASIC and/or 


machine language programs. The machine language listings 
will usually give both source and object code. The code 
will generally also be relocatable. The third part will 
contain tutorials and/or articles on subjects that you 
requested. The current tutorial is on the M6800 CPU. 
The fourth part will contain any last-minute information 
and developments. 
SECTION I - Question and Answer 
Q. Where do I send my questions ? 
A. Send them to : F(x) Software Co. 

4246 Elisabeth Ave 

Holland, MI 

49423 

SECTION II - Programs 
Eight Direction Joystick Software Modification 
The joystick controllers included with the IM-1 leave 
a little bit to be desired. One of the flaws is the lack 
of diagonal control. Until now. The following machine 
language routine will read the joysticks and put values 
in certain memory locations. The value will indicate 
the direction. Note that this routine reads both joy- 
sticks and only the joysticks, not the keypads. To use 


the routine, simply key it in using the machine language 


monitor (the routine can be put into a dummy REM statement), 


call it up with BASIC CALL instruction when necessary, 


then read memory locations $01A0 and $01AI with the BASIC 
PEEK instruction. (The $ means hexadecimal.) $01A0 equals 


416 and $01Al euals NE een? The diagram below shows 


ten 
the directions and the associated values. 


T 


3 q ; : To read right joystick, 
a 2 use PEEK(417) 
To read left joystick, 
6 12 use PEEK (4163 


Object Source code Comments 


B6 81 94 LDAA $8194 Set-up PIA port 

84 FO ANDA #$FO 

8A 02 ORAA #$02 

B7 81 94 STAA $8194 

B6 81 92 LDAA $8192 Read right joystick 
84 OF ANDA #$0F & get needed bits 
B7 O01 Al STAA $01Al1 Store in Right loc. 
B6 81 92 LDAA $8192 Read left joystick 


84 FO ANDA #$FO get needed bits 

48 ASLA shift into least 

48 ASLA significant positions 
48 ASLA 

48 ASLA 

B7 01 AO STAA $01A0 Store in Left loc. 

39 RTS 


Because the joysticks were not made to operate diagonally, 
they will require some practice. Please, by all means, 
use this routine in your own programs. This routine could 
liven.up games and simulations by providing more control. 
"SPACE STORM" - Hi-res space game 

In Space Storm, you are being bombarded by meteors, space 

rocks, alien ships, stars, and, of course, space junk. 

This program, written partially in BASIC and partially 

in machine language. The machine language is held in DATA 


statements and is POKEd into memory at RUN-time. The ob- 


ject of Space Storm is to shoot the meteors, rocks, alien 
ships, etc. before they ram you ship. Points are awarded 
as follows: 20 - meteor, 40 - rock, 60 - alien ship, 80 - 
space junk, 100 - star. This game uses the left joy stick. 
Controls are : left and right as usual, ‘fire' shoots laser. 
Note that as the game Skoeresses, things move faster and 
faster. A bonus ship is awarded at 10,000 points. 

Here it is: 


POKE 24£78,38: GOTO 10 

POKE C-1,64: POKE C,6*: POKE C+1,66:RETURN 

POKE C-1,S: POKE C,S: POKE Ctl,S: RETURN 

POKE LC,67: RETURN 

POKE LC,S: RETURN 

POKE C-1,B: POKE C,B: POKE Ctl,B: RETURN 

TS=SC: FOR E=4 TO O STEP-1: D=INT(TS/107E): POKE 14-E, 
D+9: TS=TS-D*1O*E: NEXT E: RETURN 

8 RINT(R*RND(R) )+1: RETURN 

9 CALL 17046: POKE 40960,2: POKE 40961,0: RETURN 

10 T=0:C20:LC=0:E=0:T=0: D=0: S$=83:B=84: SC=0:LF:0:L=0:DIM K$(1) 
11 FOR I=46000 TO 46023:READ D 

12 POKE I,D: NEXT I~ 

13 FOR £=46030 TO 46043: READ D 

14 POKE I,D: NEXT I 

1*© FOR I=460°0 TO 46067: READ D 

16 POKE 1,D: NEXT I 

17 FOR I=47000 TO 47127:R=18: GOSUB 8:IF R>5 THEN R=16 
18 POKE I,R+67: NEAT I 

20 GOSUB 9: PRINT TAB(11);"SPACE STORM"; SPC(10) 


NIIRnFWNFO 


30 PRINT TAB(11);"----- ----- ";SPC(10) 
40 PRINT 

50 PRINT TAB(10);"HIGH SCORE: ";HS 

60 PRINT 

70 PRINT TAB(10);"GAME SCORE: ";SC 

90 PRINT 


100 PRINT TAB(1);"PRESS THE (SPACE-BAR) TO START"; 

10° R=RND(R) 

110 IF KEY$(0)<>CHR$(32) GOTO 105 

120 GOSUB 9: POKE 40960,3: POKE 40961,128 ce 

130 PRINT"SETTING UP HI-RES SHAPES ..." RRS 
140 FOR I=512 TO 815 ae 
1*0 READ D: POKE I,D POTTERY 
160 NEXT I 

170 FOR I=816 TO 831: POKE I,0: NEXT I 

180 FOR I—832 TO 847: READ D: POKE I,D 

190 NEXT I 


Lea 


200 SC=0:EF=0 

210 FOR I* 0 TO 31: POKE 1,S: NEXT I 
215 POKE 8193 ,60: POKE 8194,222 

220 POKE 19,0: POKE 20,1: POKE Zim 
230 POKER 23nbe 

240 CALL 46030 

y Bek 9 ie Dee PEEK(23): IF D=9 GOTO 650 
260 D=D-1: POKE 23,D 

26° T=0:L= 20 

270 C= 368 

280 GOSUB 7: GOSUB l 

300*FORSE =i <:TO-b 

310 K$ = KEY$(2): IF K$<e>"" GOTO 450 


320 IF K$="!" GOTO 360 
330 IF K$6="W" GOTO 380 
340 IF K$="E" GOTO 420 


3£0 GOTO 450 
360 LF =1:LC =C-32: GOTO 450 

380 IF C-2¢3*2 GOTO 500 

390 IF PEEK(C-2) <$S GOTO 620 

400 POKE C+1,S:C =C-1: GOSUB 1 

410 GOTO 450 

420 IF C+2 >383 GOTO 500 

430 IF PEEK(C +2) <>S GOTO 610 

440 POKE C-1,S:C=C+1: GOSUB 1 

4eo IF LF=0 GOTO 500 

460 GOSUB 3:GOSUB 4 

490 LC=LC-32: IF LC@32 THEN LF=0: GOTO 500 

480 IF PEEK(LC)<7S GOTO 600 

490 GOSUB 3: GOSUB 4 : 

£00 NEXT I 

530 IF PEEK(C-31)<>S GOTO 580 

c40Q IF PEEK(C-32)<>S GOTO 580 

550 IF PEEK(C-33)<> S GOTO 580 

560 CALL 46000 

«6£© GOSUB 1 

570 R= 63: GOSUB 8:D=47000+R: POKE 390,D/256:POKE 391,,D 
©75 CALL 46050 

577 T=T+1: IF T 50 THEN L=10 

£98 IF T}100 THEN L=4 

©7279 GOTO 300 

<©80 CALL 46000 

£90 GOTO 630 ; 

600 SC= SC + (PEEK(LC)-67)#20: POKE LC,20: MUSIC"#1":GOSUB 7: 
POKE LC,S: MUSIC"/1":LF=0 

602 IF SC%=10000 IF EF=0 THEN EF=1: POKE 23, PEEK(23)+ 1: 
MUSIC"#®7 #7 #7" 

60£ GOTO 500 
610 GOSUB 2: 


+#1:GOTO 630 
620 GOSUB 2: ot 


630 GOSUB «: mUSIC"/7 /6 /5 /4 /3 /2 /l": FOR I=l1 TO 100: 
NEXT I : 
640 GOTO 240 
650 GOSUB 9: POKE 8194, 30 
660 IF SCS HS THEN HS= SC 
790 RESTORE : FOR I=1 TO 56: READ D: NEXT I: GOTO 20 
800 DATA 206,1,9*,198,10,247,1,160,198, 32,166,0,167, 32,9, 
90,38, 248,122,1,160,38, 241, 57 
810 DATA 206,0,32,134,83,167,0,8,140,1,128, 38,248, 67 
81© DATA 206,0,32,2£5,160, 41 "OE i, ei 2£5,160,43,198, 32, 
me 119,0,57 
DATA 0,0,0,0,0,0,0,0,0,0,1,3,7,15,0 
830 DATA 24,24,24,60,60, 60, 60, 126, 126, abe. 255,255,255,255, 


840 DATA 0O,0,0,0,0,0,0,0, 0, 0,128,192,224,240,0,0 
8©O DATA 24,24,24, 24, 2k, 2h, s2h, 24,24, 2h, 2h, 24, 24, 24,24,24 


860 DATA ©6,68,130,129,129, 129, 129, 129, 130, 68, 36, 36, ©, 0,0,0 
870 DATA 0,0,0,0,28,34,66, 66, 66, 34,20, 8,0 

sig ae 0,66, 66,102,102, 126, 126; 126: 126, oRaes ets 60,60, 
24,24,2 

890 DATA 0,0,0,32,34,36,84,42,4,20,18, 35 OR 120,620 

900 DATA 0,0,0,0,0,90,60 1126, 126, 60, 90, 0, ab 050;0° ~. 

910 DATA 0,0,0,60, 36, 36, 36, 36,36, 36, 36,60, 0,0,0,0 

920 DATA 0,0,0,8,8,8,8,8,8,8,8,8,0,0,0;8 

930 DATA 0,0,0,60,4,4,4,60, 32, 32,32,60,0,0,0,0 

940 DATA 0,0,0,60,8,8,8,28,8,8,8,60,0,0,0,0 

9£O DATA 0,0,0,36,36,36,36,36,60,4,4,4,0,0,0,0 

960 DATA 0,0,0,60, 32,32,32,60,4,4,4,60,0,0,0,0 

970 DATA 0,0,0,60,32,32,32,60,36,36,36,60,0,0,0,0 

980 DATA 0,0,0,60,4,4,4,4,4,4,4,4,0,0,0,0 

990 DATA 0,0,0,60, 36,36, 36,60, 36, 36,36,60,0,0,0,0 

1000 DATA 0,0,0,60,36,36,36,60,4,4,4,60,0,0,0,0 

1010 DATA 36,1,136,32,9,166,88, 58,89, 50,140, 33,20,128,1,16 
9000 END 


The program is 111 lines long and occupies 2687 bytes. 
One final note about the program: You are allowed only one 
laser shot on the screen at any one time, however, if you 
fire the laser while another is in flight, the older one 
will disappear and a new one will start. This feature was 
added so that. accidental shooting wouldn't be a problem. 


Have Fun !!? 


SECTION III 


6800: Your Microprocessor-Part 1 of 2 

In case you haven't noticed, the 40-pin chip which does 
all the arithmettéc and data manipulation in the IM is 
the M6800 microprocessor chip, produced by Motorola. The 
6800 was introduced around 1972, and was expected to compete 
with the 8080 produced by Titel, As time went by, both 
chips flourished. Today, few new systems are designed 
around these chips. This is mainly because of two other 
chips, the 6°02 by Mostek and the Z-80 by Zilog. Enough 
history. | 

The 6800, which is still considered to be a very power- 
ful chip, is fairly easy to program compared with other 
microprocessors. 

The 6800 contains 6 accessible registers: the two acc- 
umulators, A and B, the index register, X, the stack pointer, 
SP, the program counter, PC, and the condition codes register, 
CCR. A,B, and CCR are 8 bit registers; while X, SP, and PC 
are 16 bit registers. 

The two accumulators, A and B, are used for performing 
arithmetic and storing data. The CCR shows status afte 
certain events occur, such as if an addition produced an 
overflow or a negative or positive number. Next month we ~ 
will cover the CCR and A and B in greater detail. 


The remaining registers, X, SP, and PC are 16 bits long 


and are used for pointing at memory locations; in other words, 
they most often contain memory addresses. Again, these 
registers will be covered in greater ol next month. 
Programming a microprocessor is no more than controlled 
manipulation of the registers and associated memory and I/0 
devices. The flexible instruction set of the 6800, when 
utilized correctly with the needed support equipment,.can 


instruct the microprocessor to accomplish almost any task. 


SECTION IV : Last minute info & Abstract thoughts 


.If you would like to advertise in this newsletter, write us. 


Advertising for subscribers is free. 
The F(x) Software Catalog should be out sometime in November. 


We welcome your ideas, suggestions and criticisms; write us. 


4 Although we do not rely on subscriber programs to make 


99 


up the bulk of our newsletter as other mewsletters do, 
we welcome your programs that you would like to share. 


Next Month : TRIG functions, 6800-part 2, and much more 


END 


